home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 163 - Disc 1 / MF_UK_163_1.iso / pc / Files / Scenes / HOME.DIR / Internal_64_Text Field weblink.ls < prev    next >
Encoding:
Text File  |  2005-10-20  |  405 b   |  14 lines
  1. property linksList
  2.  
  3. on mouseUp me
  4.   linksList = []
  5.   repeat with i = 1 to sprite(me.spriteNum).member.word.count
  6.     if sprite(me.spriteNum).member.word[i] contains "http://" then
  7.       put sprite(me.spriteNum).member.word[i]
  8.       sprite(me.spriteNum).member.word[i].color = rgb(0, 0, 255)
  9.       tempLink = sprite(me.spriteNum).member.word[i]
  10.       linksList.append(tempLink)
  11.     end if
  12.   end repeat
  13. end
  14.